SuperModels in the Rainforest/SuperModels in the Rainforest.iso/rain.dxr/00005_B Handlers.ls

Text File | 1995-10-13 | 4.1 KB | 136 lines

on bGoOnGirl
  global giCurrentGirl, giVidSprite, giVid2Sprite, gsCleanUpHandler, giNavNumber, giVid3Sprite
  cursor(0)
  set giNavNumber to 1
  set iTempFrame to label("GirlScreen") + giCurrentGirl
  set the visible of sprite giVidSprite to 0
  set the visible of sprite giVid2Sprite to 0
  set the visible of sprite giVid3Sprite to 0
  set the visible of sprite 17 to 0
  set the visible of sprite 18 to 0
  set the visible of sprite 2 to 0
  go(iTempFrame)
  set the visible of sprite 23 to 1
  set the visible of sprite 24 to 1
  set gsCleanUpHandler to "bCleanUpGirl"
end

on bSetGirlBackground
  global giCurrentGirl, giBackgroundSprite
  set stempCast to "bGirl" & giCurrentGirl
  set the castNum of sprite giBackgroundSprite to the number of cast stempCast
end

on bsetGirlIcon aDirection
  global giIconSprite, giCurrentGirl, giFirstGirlIcon
  set the castNum of sprite giIconSprite to giFirstGirlIcon + giCurrentGirl - 1
  if aDirection = -1 then
  else
    if aDirection = 1 then
    end if
  end if
  if aDirection <> 0 then
    bSetGirlPoster()
    bSetGirlBackground()
    updateStage()
    bGetGirlVideo(1)
  end if
end

on bNextGirlIcon
  global giMaxGirls, giCurrentGirl
  if (giCurrentGirl + 1) > giMaxGirls then
    set giCurrentGirl to 1
  else
    set giCurrentGirl to giCurrentGirl + 1
  end if
  bsetGirlIcon(1)
end

on bPrevGirlIcon
  global giMaxGirls, giCurrentGirl
  if (giCurrentGirl - 1) < 1 then
    set giCurrentGirl to giMaxGirls
  else
    set giCurrentGirl to giCurrentGirl - 1
  end if
  bsetGirlIcon(-1)
end

on bGetGirlVideo aIndex
  global giCurrentGirl, glGirlNames, giVidSprite, giVid3Sprite, giVid2Sprite, gsMovieDir, giTempVidCast, septracker, purple, tempCast
  cursor(4)
  set sTemp to getAt(glGirlNames, giCurrentGirl)
  set purple to purple + 1
  if purple = 1 then
    set sMovieName to gsMovieDir & sTemp & septracker & sTemp & aIndex & ".mov"
    set the fileName of cast giTempVidCast to sMovieName
  end if
  put giTempVidCast
  set the visible of sprite giVid2Sprite to 0
  if the machineType = 256 then
    set the movieRate of sprite 4 to 0
  end if
  set the visible of sprite giVid3Sprite to 0
  if the machineType = 256 then
    set the movieRate of sprite 5 to 0
  end if
  set the visible of sprite giVidSprite to 1
  set the movieTime of sprite 3 to 0
  set the movieRate of sprite 3 to 1
  updateStage()
  cursor(0)
end

on bGetGirlVideo2 aIndex
  global giCurrentGirl, glGirlNames, giVid2Sprite, giVid3Sprite, giTempVid2Cast, giVidSprite, gsMovieDir, giTempVidCast, giNavNumber, septracker, orange
  cursor(4)
  set sTemp to getAt(glGirlNames, giCurrentGirl)
  set orange to orange + 1
  if orange = 1 then
    set sMovieName to gsMovieDir & sTemp & septracker & sTemp & aIndex & giNavNumber & ".mov"
    set the fileName of cast giTempVid2Cast to sMovieName
  end if
  set the visible of sprite giVidSprite to 0
  if the machineType = 256 then
    set the movieRate of sprite 3 to 0
  end if
  set the rect of sprite giVid2Sprite to rect(-1000, -1000, -800, -800)
  set the visible of sprite giVid2Sprite to 1
  set the movieTime of sprite 4 to 0
  set the movieRate of sprite 4 to 1
  set the visible of sprite giVid3Sprite to 0
  if the machineType = 256 then
    set the movieRate of sprite 5 to 0
  end if
  updateStage()
  cursor(0)
end

on bGetGirlVideo3 aIndex
  global giCurrentGirl, glGirlNames, giTempVid3Cast, giVidSprite, giVid3Sprite, giVid2Sprite, gsMovieDir, giTempVidCast, septracker, yellow
  cursor(4)
  set sTemp to getAt(glGirlNames, giCurrentGirl)
  set yellow to yellow + 1
  if yellow = 1 then
    set sMovieName to gsMovieDir & sTemp & septracker & sTemp & aIndex & ".mov"
    set the fileName of cast giTempVid3Cast to sMovieName
  end if
  set the visible of sprite giVid2Sprite to 0
  if the machineType = 256 then
    set the movieRate of sprite 4 to 0
  end if
  set the visible of sprite giVid3Sprite to 1
  set the movieTime of sprite 5 to 0
  set the movieRate of sprite 5 to 1
  set the visible of sprite giVidSprite to 0
  if the machineType = 256 then
    set the movieRate of sprite 3 to 0
  end if
  updateStage()
  cursor(0)
end

on bCleanUpGirl
end